// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .CS}

//-------------MAIN---------------
thread 'STRPER' 

REPEAT 
WAIT 0
IF 0AAB: file_exists "CLEO\KEYS.INI"
THEN
    if and                                                                                    
    0AF0: 15@ "CLEO\KEYS.INI" "veh_stoper" "go_front"                                            
    0AF0: 16@ "CLEO\KEYS.INI" "veh_stoper" "go_back"               
    0AF0: 17@ "CLEO\KEYS.INI" "veh_stoper" "angle_left"            
    0AF0: 18@ "CLEO\KEYS.INI" "veh_stoper" "angle_right"           
    0AF0: 19@ "CLEO\KEYS.INI" "veh_stoper" "go_up"                 
    0AF0: 20@ "CLEO\KEYS.INI" "veh_stoper" "go_down"                                                                                                        
    then break                                                                                
    else                                                                                      
        0AF1: write_int 54 to_ini_file "CLEO\KEYS.INI" "veh_stoper" "go_front"         
        0AF1: write_int 55 to_ini_file "CLEO\KEYS.INI" "veh_stoper" "go_back"           
        0AF1: write_int 56 to_ini_file "CLEO\KEYS.INI" "veh_stoper" "angle_left"
        0AF1: write_int 57 to_ini_file "CLEO\KEYS.INI" "veh_stoper" "angle_right"
        0AF1: write_int 53 to_ini_file "CLEO\KEYS.INI" "veh_stoper" "go_up"
        0AF1: write_int 52 to_ini_file "CLEO\KEYS.INI" "veh_stoper" "go_down"                                
    end                                                                                       
END 
UNTIL IF 0AAB: file_exists "CLEO\KEYS.INI" 

:STRPER_37Ev
wait 0 
if 
   Player.Defined($PLAYER_CHAR)
jf @STRPER_37Ev 
if 
   Actor.Driving($PLAYER_ACTOR)
jf @STRPER_37Ev 
6@ = Actor.CurrentCar($PLAYER_ACTOR)
if 
0ab0: 16@
jf @STRPER_3E8v 
0407: store_coords_to 1@ 2@ 3@ from_car 6@ with_offset 0.0 -6.0 -1.0 
Car.PutAt(6@, 1@, 2@, 3@)
Camera.Restore_WithJumpCut

:STRPER_3E8v
if 
0ab0: 15@
jf @STRPER_426v 
0407: store_coords_to 1@ 2@ 3@ from_car 6@ with_offset 0.0 6.0 -1.0 
Car.PutAt(6@, 1@, 2@, 3@)
Camera.Restore_WithJumpCut

:STRPER_426v
if 
  0ab0: 20@
jf @STRPER_506v 
0407: store_coords_to 1@ 2@ 3@ from_car 6@ with_offset 0.0 0.0 -6.0 
Car.PutAt(6@, 1@, 2@, 3@)
Camera.Restore_WithJumpCut
jump @STRPER_37Ev 

:STRPER_506v

if 
  0ab0: 19@
jf @STRPER_55Cv 
0407: store_coords_to 1@ 2@ 3@ from_car 6@ with_offset 0.0 0.0 6.0 
Car.PutAt(6@, 1@, 2@, 3@)
Camera.Restore_WithJumpCut
jump @STRPER_37Ev 

:STRPER_55Cv
if 
 0ab0: 18@
jf @STRPER_59Fv 
7@ = Car.Angle(6@)
7@ += 2.1 
Car.Angle(6@) = 7@
jump @STRPER_37Ev 

:STRPER_59Fv
if 
  0ab0: 17@
jf @STRPER_5DBv 
7@ = Car.Angle(6@)
7@ -= 2.1 
Car.Angle(6@) = 7@

:STRPER_5DBv
0819: 21@ = actor $PLAYER_ACTOR distance_from_ground 
if 
04B5:   21@ >= 9.0 // @ >= constant 
then Car.LockInCurrentPosition(6@) = True
else Car.LockInCurrentPosition(6@) = false
end

jf @STRPER_37Ev 
jump @STRPER_37Ev